*Change the file path to your directory"
*Use FigureS7.dta in order to generate Figure S7: Treatment Effects of Perceived Credibility by Party Identification

use "/FigureS7.dta"

*Generate the figure
twoway rcap upperci95 lowerci95 generator if !missing(lowerci95) & !missing(upperci95) & !missing(generator), vertical pstyle(p2) || scatter mean generator if !missing(mean) & !missing(generator), pstyle(p1) || rcap upperci90 lowerci90 generator ||,xlabel(, valuelabel) legend(off) yline(0) graphregion(color(white))
